-- card: 18986 from stack: in.0
-- bmap block id: 19842
-- flags: 0000
-- background id: 19442
-- name: x"&fld 1


-- part 1 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=22 top=64 right=308 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: index1
----- HyperTalk script -----
on mouseUp
  global tape
  set lockscreen to true
  put the textHeight of me into th
  put item 2 of the rect of me into y
  get trunc(1+(1+(clickV() - y))/ th + (the scroll of me)/ th)
  set lockscreen to false
  select line it of cd fld index1
  put last word of line it of card field "index1" into tape
  goTape
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=330 top=34 right=60 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Index
----- HyperTalk script -----
on mouseUp
  set lockText of cd fld "index1" to false
  put "                                        " into blank
  go second cd
  select text of cd field "index1"
  put empty into cd fld index1
  repeat with i = begnum() to the number of cards
    get field "Theme" of card i
    set cursor to busy
    if it is empty then next repeat
    put blank into temp
    put it into char 1 to (number of chars of it) of temp
    get field "Num" of cd i
    put it into char (38 - number of chars of it) to 37 of temp
    if cd fld index1 is empty then put temp into line 1 of cd fld index1
    repeat with j=1 to number of lines of cd fld index1
      if temp < line j of cd fld index1 then
        put temp & return before line j of cd fld index1
        exit repeat
      end if
    end repeat
  end repeat
  go second card
  set lockText of cd fld "index1" to true
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=438 top=176 right=206 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to stack "Home"
end mouseUp




-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=438 top=249 right=275 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go first card
end mouseUp



-- part contents for card part 1
----- text -----
Alf Episodes #1                    65   
Alf Episodes #2                    66   
Alf Episodes #3                    41   
Apollo 11                          67   
Astronomy                          59   
Aviation                           46   
Bicycle Races (1984 Olympics)      L7   
Bicycle Races (1984;5;6;8)         30   
Bicycle Races (1986)               22   
Bicycle Races (1986;7)             62   
Bicycle Races (1987)               31   
Bicycle Races (1988)               27   
Bicycle Races (1989)               29   
Bruce Lee                          11   
Cartoons                           57   
Christmas Shows                     5   
Clint Eastwood                      1   
College Bowl Highlights            L3   
Georgia Tech Sports                32   
Georgia Tech Sports                63   
Godfather Part I                    2   
Harrison Ford!                     33   
Home Movies                        25   
Home Movies                        26   
Home Movies                        R2   
Monty Python                       10   
Music Videos                       15   
Music Videos/Concerts              23   
Rebecca's                          R1   
Rebecca's                          R4   
Rebecca's                          R5   
Rebecca's                          R6   
Sci-fi Pilot                       54   
Science Fiction                     6   
Science Fiction                    20   
Science Fiction                    L2